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0 TITLE LIBRE TAT. TABLES = Tables for LIBSGETxx!I routine 
' ~IDENT /1=004/ ; File: LIBGETTAB.MAR Edit : $BL1004 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sor iee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE 
COPIES THEREOF MAY NOT BE VIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
a epokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
; FACILITY: General Utility Library 
; ABSTRACT: 


This module contains the tables used by the LIBSS$GETxxI routines 
be seule Nagata that give, for each xxI$_ item code, the type 
° at value. 


: ENVIRONMENT: No executeable code 
: AUTHOR: Steven B. Lionel, CREATION DATE: 7-March-1983 
: MODIFIED BY: 


: 1-001 - Original. SBL 7-Mar-1983 
: ¢ - Reflect | to Pl _ITEM_CODE macro argument order. SBL 14-Mar-1983 
Add HEXSTR. SBL 20-May-1983 

For $GETJPI, separate out JPIS$_STATE and JPIS_MODE as special cases 
with their own formats. SBL 9=Sep-1983 
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6-SEP 
~SBTTL DECLARATIONS 
LIBRARY MACRO CALLS: 


LIBRTL. SRC CILIBGETTAB.MAR; 1 


goyioer ; DVIS. codes 
SJPIDEF ; JPIS_ oe 
SSYIDEF ; SYIS- 
SLIBFMTDEF ; LIBSR_ fare "codes 
The following macros are invoked from SYSBLDMLB.MLB: 
DVI = GENERATE = {ABLE 


JPI-GENERATE_TABLE 
SYI"GENERATE_ TABLE 


EXTERNAL DECLARATIONS: 
-DSABL GBL ; Force all external symbols to be declared 
MACROS: 
See below 
EQUATED SYMBOLS: 
NONE 
OWN STORAGE: 
NONE 
PSECT DECLARATIONS: 


-PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 


j 
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3 s -SBTTL Tables for LIBSSGETDVI | 
p ; FUNCTIONAL DESCRIFTION: | 
3 : This module defines a macro called DVI_ITEM_CODE that is called 
93 ; repetitively by the Dvl GENGRATE _ TABLE macro. DVI_ITEM_CODE constructs 
op Be : a table entry of the following format: 
000 9; CODE = 1 word 
8 3 : TYPE - 1 byte 
09 + : CODE is the DVI$S_ code for this item. 
4 139 ; TYPE is the LIBSR_FMT_xxx type code for this item. 
$009 196 : Note that not all parameters to DVI_ITEM_CODE are used and that not 
0000 1035 ; all invocations of DVI_ITEM_CODE reSult jn a table entry. Those items 
0000 104 ; whose format is a decimal integer are not stored. 
0000 105 ; 
0000 107° 
0000 108 -MACRO DVI_ITEM CODE - 
0000 109 NAME, SPECIAL, SOURCE, DTYPE, BITPOS, OUTLEN, - 
9909 110 STRUCT, DEVTYP 
0000 \1¢ LIF IDN DTYPE,DECNUM, -MEXIT 
44 137 IIF ION DTYPE, BITVEC, -MEXIT 
0000 115 WORD DVIS$_"NAME 
0000 116 IF ION BTYPE,STDTIM 
0000 117 -BYTE LIBSK_FMT_DATE 
0000119 ie 
0000 120 IF IDN_DTYPE,STDUIC 
8000 121 -BYTE LIBSK_FMT_UIC 
Sau iRe Ba | 
0000 124 IF IDN_DTYPE,HEXNUM 
9000 125 -BYTE LIBSK_FMT_HEX | 
000 127 “END 
900 128 IF IDN_DTYPE ,PRYMSK | 
4 : ; BYTE UIBSK_FAT PRIVILEGE 
09 131 SENDC 
0 1 § IF IDN_DTYPE,STRDSC 
Bp 1 BYTE LIBSK_FMT_STRING 
134 -MEXIT 
0 135 -ENDC 
0 1 § IF IDN DTYPE,CNTSTR 
0 1 BYTE LIBSK_FMT_ASCIC 
0 | 3 MEXIT 
1 -ENDC 
0 140 olf IDN DTYPE,PADSTR 
141 -BYTE LIBSK_FMT_PSTRING 
146 eMEXIT 
14 -ENDC 
144 lf ION DTYPE,BITVAL 
| 
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3; End of table 
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pit Gatley 
TABLE 


DTYPE ,ACPTYP 


N 
BSK_FMT_ACP 
Pp 
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2a 
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-_ -_ - 


DTYPE ; Type not known by LIBGETTAB.MAR 


LIBSK_FMT_BOOLEAN 


T 
“ENDM 
ERATE. 


DVI_GE 
. WORD 


: 
é 
F 
«WARN 
Now invoke the DVI_GENERATE_TABLE macro 
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-SBTTL Tables for LIBSSGETJPI 
FUNCTIONAL DESCRIPTION: 


whose format is a decimal integer are not stored. 


: This module defines a macro called JPI_ITEM_CODE that is called 

: repetitively by the JPI_GENERATE_TABL e macro. JPI_ITEM_CODE constructs 
: a table entry of the following format 

; CODE - 1 word 

: TYPE = 1 byte 

; CODE is the JPI$_ code for this ite 

3 TYPE is the LiBSR _FMT_xxx type code’ for this item. 

; Note that not all parameters to JPI_ITEM_CODE are used and that not 

: all invocations of JPI_ITEM_CODE reSult jn a table entry. Those items 


-MACRO srl ITEM_CODE - 
ASE, NAME, SOURCE, DTYPE, BITPOS, BITSIZ, OUTLEN, STRUCT 


IF 1DN_ NAME , STATE 
WORD JPI$_ "NAM 
“BYTE LIBSR_FMT_STATE 


IDN_ NAME , MODE 
WORD JPI$. "NAME 
LIBSR_FMT_MODE 


LIF ION DTYPE ,BITVEC, . 
LIF IDN DTYPE ,DECNUM, . 


~WORD JPIS_‘NAME 


IF ION DTYPE,STDTIM 
tO LIBSK_FMT_DATE 


N_DTYPE ,HEXNUM 
BSK_FMT_HEX 


ION DTYPE,PRVM 
LIBSK_FMT PRIVILEGE 
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. -SBTTL Tables for LIBSSGETSYI 
FUNCTIONAL DESCRIPTION: 


SYI_LITEM_CODE that is called 


This module defines a macro c¢ d 
TABLE” macro. SYI_ITEM_CODE constructs 


all 
repetitively by the SYI_GEN ae 


; a table entry of the following format: bs 
: CODE - 1 word 
; TYPE = 1 byte 
; CODE is the SYI$_ code for this item 
- ; TYPE is the LIBSR_FMT_xxx type code for this item. 
; Note that not all parameters to SYI_ITEM_CODE are used and that not 
3 all ihvbcet lens of” SYI_ITEM_CODE result jn a table entry. Those items 
: whose format is a decimal integer are not stored. 


-MACRO SYI_ITEM_CODE - 
BASE, NAME, SOURCE, DTYPE, BITPOS, BITSIZ, OUTLEN 


LIF ION DTYPE,DECNUM, »MEXIT 
LIF ION DTYPE ,BITVEC, »MEXIT 
-WORD SYIS_ "NAME 
IF IDN BTYPE. STDTIM 

-BYTE LIBSK_FMT “DATE 

»MEXIT 

.ENDC 


: ION DTYPE,STDUIC 
BYTE LIBSK_FMT_UIC 
»MEXIT 
-ENDC 

IF IDN DTYPE ,HEXNUM 
-BYTE LIBSK_FMT_HEX 

oMEXIT 


Cc 
IF IDN DTYPE ,PRVMSK 
-BYTE LIBSK_FMT “PRIVILEGE 
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0 SMEXIT 

1 -ENDC 

g f IDN_DTYPE,STRDSC 
-BYTE LIBSK_FMT. STRING 

4 SMEXIT 

5 SENDC 

° lf IDN DTYPE,CNTSTR 
-BYTE LIBSK_FMT_ 

8 SMEXIT 
-ENDC 

10 é IDN_DTYPE,PADSTR 

11 -BYTE LIBSK_FMT.PSTRING 

1 “MEXIT 

1 -ENDC 

14 lf IDN_DTYPE .BITVAL 

15 .BYTE LIBSK_FMT. BOOLEAN 
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1 -MEXIT 
i$ .ENDC 
18 lf IDN DTYPE,HEXSTR 
1 -BYTE LIBSK_FMT_HEXSTRING 
eMEXIT 
-ENDC 
»WARN ODTYPE « Type not known by LIBGETTAB.MAR 
4 ~ENDM 
2 30 
ti. ; Now invoke the SYI_GENERATE_TABLE macro 
0 GETSYISW = 1 ; Needed for SYI_GENERATE_TABLE 
1 LIBS$AB_GETSYI_TABLE:: 
2 SYI1_GENERATE_TABLE 
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-BYTE 
»MEXIT 
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SY1$_ BUGREBOOT 
LIBSR_FMT_BOOLEAN 
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Cluster Paramete 
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; End of table 


: End of module LIBSSGETXXI_TABLES 
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' Psect synopsis ! 


dower ocenamecasena 


PSECT name Allocation PSECT No. Attributes 

ABS . $08 ( 8.3 0 ¢ 9.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$aBS$ 0 ( -)» O1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE AD WRT NOVEC BYTE 
_LIBSCODE 00 ( 624.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
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! Performance indicators ! 
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ase age faults me apse me 
Ph P faul CPU Ti El d Ti 
Initialization 9 00:00:00.03 0:03: -40 
——" processing :00:00. 
i 126 0:00 49 g 
s 1 1016 0:00: 9! 
Syabol table sort ; + HS ef 08-6 
Symbol table output 30 §:00:00.18 : :00: 0. ; 
Psect synopsis output b's 01 :00.01 
Cross-reference output 0 89 280: ‘ ’ 9.90 
Assembler run totals 1341 00:00:47. 0: 03:24.1 


The working seg Limit was 2100 page 
grees bytes (546 pages) of virtual memory were used to buffer the intermediate code. 
338s were 40 pages of symbol table space allocated to hold 615 non-local and 0 local symbols. 
source Lines were read in Pass 1, producing 11 object records in Pass 2. 
fe pages of virtual memory were used to define 21 macros. 
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Macro Library name Macros defined 
$255$DUA28: CLIBRTIL O01 R IORTL ans; 1 1 
~$S258DUACB: :CSYSLIBJSYSBLDML MLB; | 7 

Peystle Stat UAiBs 7 

Site (all libraries) 15 


4055 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESS1ON/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBGETTAB/OBJ=OBJ$:LIBGETTAB MSRC$:LIBGETTAB/UPDATE=(ENHS$:LIBGETTAB) +SY 
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